Top 10k strings from Deathball 2000 (1986)(Alpha-Omega Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
13 (((((((((((((((((((((((((( 11 R(A)=(R(A)+ 10 R(A)=(R(A)- 9 Y(A)=R(A): 8 OPPOSITION= 6 T(PLAYER)> 5 F(PLAYER)=- 5 F(PLAYER)= 4 UUUUUUUUUUUUUUUUUUUUUUUUUU 4 PLAYER=PLAYER+ 4 PALONG<ALONG 4 OPPOSITION=D( 4 FACE=F(PLAYER): 4 BALL=L(PLAYER) 4 "8";": :"; 4 "5";"!!!!"; 4 "23";"!!!!"; 4 " V ": 3 Y(A)=(R(A)+ 3 T(A)=(A(A)+ 3 LOC=L(PLAYER): 3 INK;"DEATHBALL 2000 DEATHBALL 2000" 3 INK;" PRESS THE APPROPRIATE KEY " 3 "7"-INK);"5"; 3 "7"-INK);"3"; 3 "7"-INK);"1"; 2 zUUUUUUUUUUUUUUUUUUUUUUUUUU 2 jUUUUUUUUUUUUUUUUUUUUUUUUUU 2 Z$="YOUR TEAM": 2 W(OPPOSITION)= 2 TIME=TIME+ 2 T(PLAYER)= 2 PLACE=R(A): 2 PALONG>ALONG 2 PALONG=((R(A))-( 2 OPPOSITION=D(COW- 2 LOC+(FACE+FACE)> 2 LOC+(FACE+FACE)< 2 L(PLAYER)+FACE> 2 L(PLAYER)+FACE< 2 L(PLAYER)+(FACE* 2 BALL=PLACE: 2 BALL=PLACE 2 BALL=L(PLAYER): 2 ;T$(WELL): 2 ;T$(D(COW+ 2 ;"WEEK NUMBER ";WEEK 2 ;"STRENGTH TOTAL ";ST: 2 -I(PLAYER))*3 2 (a+ground): 2 "LOOKING VERY TIRED": 2 "LOOKING VERY MEAN": 2 "LOOKING QUITE MEAN": 2 "LOOKING HALF DEAD": 2 "LOOKING A BIT RAGGED": 2 "7";"TEAM 2 "7"-INK);"7" 2 "3";"YOU ARE TO PLAY A REPLAY": 2 "17";N$(PLAYER): 2 "10"*PUP)): 2 "1";"RESULTS RESULTS RESULTS RESULTS ": 2 "1"))=N(D(A+ 2 " V": 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 ppppppppG' 1 f(PLAYER)=K 1 f(PLAYER)=-K 1 f(PLAYER)=- 1 f(PLAYER)= 1 Z=K(LOC+FACE): 1 Z=K(LOC+(FACE+FACE)): 1 Z(D(A))=Z(D(A))+W(A+ 1 YAP=L(PLAYER)-(YIP* 1 Y=(ALONG-YAP)+ 1 Y(A)=(R(A)- 1 X=(Q(O(A)))-(Z(O(A))): 1 X=(-(UP-YIP))+ 1 WELL=OPPOSITION 1 WEEK=WEEK+ 1 V;"__________________________"; 1 U(D(A))=U(D(A))+ 1 TURN=(E(A)): 1 TIME=TIME- 1 THEIR GROUND" 1 T(PLAYER)=T(PLAYER)- 1 T$(OPPOSITION) 1 ST=ST+S(A) 1 R(A)=THAT: 1 R(A)=R(A)- 1 R(A)=L(PLAYER)+F(PLAYER) 1 R(A)=L(PLAYER) 1 Q(D(A))=Q(D(A))+W(A): 1 PLACE=L(XAK): 1 PLACE=L(A): 1 PERIOD=PERIOD+ 1 PALONG=ALONG 1 OPPOSITION=Z: 1 OPPOSITION=WELL: 1 OPPOSITION=AWAY: 1 OPPOSITION=8 1 OPPOSITION=7 1 OPPOSITION=6 1 OPPOSITION=5 1 OPPOSITION=4 1 OPPOSITION=3 1 OPPOSITION=2 1 OPPOSITION=1 1 ONE TWO 1 N(O(Z))>N(O(Z- 1 N(O(A))=N(O( 1 N(D(A))=N(D(A))+ 1 N(D(A))=N(D( 1 LONDON DEATHBALL XI GLASGOW ALLSTARS CROYDON KILLERS DUBLIN DESTROYERS MOORS MURDERERS BRIGHTON BOMBERS YORKSHIRE RIPPERS YOUR TEAM 1 L(PLAYER)=R(A) 1 L(PLAYER)=L(PLAYER)+FACE: 1 L(PLAYER)= 1 L(PLAYER)+FACE=R(A) 1 L(PLAYER)+FACE=L(A) 1 L(PLAYER)+F(PLAYER)=BALL 1 L(PLAYER)+F(PLAYER)= 1 L(A)=THIS: 1 L(A)=L(PLAYER)+F(PLAYER) 1 K;" SIMUPULSE" 1 K;" ";: 1 J(Z)=J(Z)+( 1 J(A)=J(A)+( 1 I(Z)=I(Z)+( 1 I(A)=I(A)+( 1 GGGGGGGGGGGGGGGGGGGGGGGGGGG 1 GGGGGGGGGGGGGG 1 GGGBBBBBBBBBBBBBBBBBBBBBBBBBBBB 1 F(PLAYER)=K 1 F(PLAYER)=-K 1 EXTRA IDEAS 1 EEEEEEEEEEEEEEEEEEEEEEE 1 EEEEEEEEEEEEEEEE 1 EEEDDDDDDDDDDDDDDDDDDDDDDDDDDDD 1 E(A)=(M(A)+ 1 DRAW=DRAW+ 1 DEATH BALL 1 DDDDDDDDDDDDDD 1 DB 2000 9 1 D(DRAW)=A: 1 D(A)=OPPOSITION 1 CRYSTAL PALACE 1 BK=PLAYER: 1 BEEEEEEEEEEEEEEEEEEEEEEEEEEE 1 BBBBBBBBBBBBBB 1 AWAY=OPPOSITION 1 ALONG>YAP+ 1 ALONG=(BALL-(UP* 1 ALONG=(BALL-( 1 ALONG<YAP- 1 AG=AG+A(A) 1 AAAA)))AGGGGGG 1 >?@ABCDEFG@AHIHIff89JKJKJK": 1 ;T$(OPPOSITION): 1 ;T$(O(A)); 1 ;T$(D(COW)); 1 ;T$(D(COW)): 1 ;"tu}xy@AHIfffNOlmJKpq>?": 1 ;"tu}rsDEBC}xyrs": 1 ;"\]e`a()01fff67TU23XY&'"; 1 ;"YOU HAVE THE BALL" 1 ;"THIS WEEK YOU ARE PLAYING THE": 1 ;"THIS IS THE ";Z$;" TEAM " 1 ;"THE OPPOSITION HAS THE BALL": 1 ;"PLAYER NUMBER ";A: 1 ;"PLAYER NAME ";N$(A) 1 ;"DO WISH TO SAVE THE GAME HERE" 1 ;"DEATHBALL CUP WINS 1 ;"DEATHBALL CUP RUNNERS UP 1 ;"CHAMPIONSHIP WINS 1 ;"CHAMPIONSHIP RUNNERS UP 1 ;"AGILITY TOTAL ";AG: 1 ;"AGILITY TOTAL ";AG 1 ;"@AHILMDE@AffffJKhi>?rs@A": 1 ;"@ ;": 1 ;": :"; 1 ;"8...RETURN TO MAIN MENU" 1 ;"//////////": 1 ;" TEAM NAME W F A PTS" 1 ;" AHEAD OF YOU STANDS": 1 ;" ": 1 66666666666666666666666666 1 23635",PK1: 1 .(((((((((((((((((((((.... 1 (L(PLAYER)/ 1 & &&&&&&&& 1 "YOU HAVE 13 STRENGTH POINTS TO DISTRIBUTE AMONGST YOUR TEAM ANDALSO 13 AGILITY POINTS. GIVE BETWEEN 0 AND 3 POINTS TO EACH PLAYER": 1 "STRENGTH POINTS";S(A): 1 "OK Y; N"; 1 "NEW TIME LENGTH PER HLF 10 TO 60";STM: 1 "LONDON DEATHBALL XI","GLASGOW ALLSTARS","CROYDON KILLERS","DUBLIN DESTROYERS","MOORS MURDERERS","BRIGHTON BOMBERS","YORKSHIRE RIPPERS" 1 "HONOURS TO DATE HONOURS TO DATE": 1 "AGILITY POINTS";A(A): 1 "9599"+X): 1 "9599"+WEEK: 1 "9499"+(OPPOSITION)): 1 "9000"+OPPOSITION): 1 "9",V;"3...PLAY IN LEAGUE"; 1 "8";"YOU ARE LOOKING WEST " 1 "8";"YOU ARE LOOKING SOUTH" 1 "8";"YOU ARE LOOKING NORTH" 1 "8";"YOU ARE LOOKING EAST " 1 "8";"TIME REMAINING ";TIME 1 "7";T$(A): 1 "7";"START PERIOD ";PERIOD: 1 "7";"NO CHANCE MATE": 1 "7"-OPPOSITION) 1 "7"-INK);"7"; 1 "7",V;"2...PLAY IN CUP COMPETITION"; 1 "6";"TEAM NAME ";Z$: 1 "6";"NUMBER 1 "6";"NAME 1 "6";"INPUT YOUR CHOSEN TEAM NAME": 1 "6";"INPUT THE NEW TEAM NAME" 1 "6";"INPUT NAME FOR PLAYER NUMBER ";A: 1 "6";"HOME OR AWAY" 1 "6";"CAN T DO THAT": 1 "6"-I(PLAYER)); 1 "5";;"USE A MAXIMUM OF 10 CHARS PLEASE" 1 "5";"__________": 1 "5";"USE A MAXIMUM OF 15 CHARS PLEASE" 1 "5";"01&'()Z[VW&'ffTU,-()PQ4567": 1 "5";"##|}"; 1 "5";"##()"; 1 "5";" ": 1 "5",V;"1...PLAY ONE OFF GAME"; 1 "4";"...";T$(CNT): 1 "4";"$%&'()*+,-./()0101ff !232323": 1 "30";N(O(A)): 1 "3";"__________________________": 1 "3";"TUVW45ff^_e`a`a&'XY67": 1 "3";"PQ23RS&'PQ&'`a*+ff45,-()67&'": 1 "3";"2345452367e*+e23`a": 1 "3";"()ff\]VW*+VWXY&'ff674523XY*+": 1 "3",V;"";: 1 "27";Z(O(A)); 1 "24";Q(O(A)); 1 "23636",PK2 1 "23";"*+##"; 1 "23";" *+" 1 "22";W(COW+ 1 "22";W(COW): 1 "21";U(O(A)); 1 "2";": :"; 1 "2";": :": 1 "17";"TURNS ";T(PLAYER) 1 "17";"STRENGTH ";S(PLAYER) 1 "17";"INJURIES ": 1 "17";"AGILITY ";A(PLAYER) 1 "17";" ": 1 "17",V;"7...SET GAME LENGTH" 1 "15",V;"6...SAVE HONOURS TO DATE"; 1 "13",V;"5...LIST HONOURS TO DATE"; 1 "11",V;"4...CHANGE TEAM NAMES"; 1 "10"*UP)): 1 "1";"lmnoLMffvw}xyxy>?pqNO": 1 "1";"hiJKjk>?hi>?xyBCffLMDE@ANO>?" 1 "1";"frsJK@AHIf": 1 "1";"fZ[23()01f": 1 "1";"\]eZ[,-*+e`aZ["; 1 "1";"YOU HAVE WON THE TOSS": 1 "1";"YOU HAVE LOST THE TOSS": 1 "1";"THE SEMI FINALS THE SEMI FINALS ": 1 "1";"THE LEAGUE TABLE AFTER WEEK ";WEEK 1 "1";"JKLMLMJKNO}BC}JKxy" 1 "1";"HI>?@Arsno>?fflmDE@AniLMNO": 1 "1";"HEADS OR TAILS" 1 "1";"DEATHBALL 2000 CUP FINAL RESULT.": 1 "1";"@AfftunoBCnopq>?ffNOLMJKpqBC": 1 "1";"..."; 1 "1";"()0145,-()ffff23PQ&'Z[()"; 1 "1";" CUP DRAW CUP DRAW CUP DRAW ": 1 "1";" RESULTS RESULTS RESULTS ": 1 "1";" FIXTURES FIXTURES FIXTURES ": 1 "1";" THE DEATHBALL CUP FINAL": 1 "1";" "; 1 "1";" ": 1 "1")=O(A): 1 "1"))=Z(D(A+ 1 "1"))=U(D(A+ 1 "1"))=Q(D(A+ 1 "1"))+W(A+ 1 "1"))+W(A) 1 "1")))-(Z(O(A- 1 " PREPARE TO SAVE HONOURS LIST AND THE CURRENT LEAGUE TABLE ": 1 " V ": 1 " V ": 1 ";T$(OPPOSITION);: 1 ";T$(OPPOSITION): 1